directory<-Sys.getenv("US_Ineq_Repl")
Scripts<-file.path(directory,"Scripts","MM")
setwd(Scripts)
source("QR_mod.R")
setwd(Scripts)
source("QR_mod_fig.R")
setwd(Scripts)
source("MM_fig.R")
setwd(Scripts)
source("MMTables.R")